object DMSistema_frm: TDMSistema_frm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 215
  Top = 194
  Height = 398
  Width = 672
  object IBDataBaseSIGAS: TIBDatabase
    Connected = True
    DatabaseName = 'C:\SIGAS\DADOS\DADOS.FDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=sigassis'
      'lc_ctype=WIN1252')
    LoginPrompt = False
    DefaultTransaction = IBTransactionSIGAS
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 40
    Top = 32
  end
  object IBTransactionSIGAS: TIBTransaction
    Active = True
    DefaultDatabase = IBDataBaseSIGAS
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    AutoStopAction = saNone
    Left = 144
    Top = 32
  end
  object qrylogin: TIBQuery
    Database = IBDataBaseSIGAS
    Transaction = IBTransactionSIGAS
    ForcedRefresh = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'SELECT * FROM USUARIOS WHERE USUARIO = :USUARIO AND SENHA = :SEN' +
        'HA')
    Left = 344
    Top = 32
    ParamData = <
      item
        DataType = ftString
        Name = 'USUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'SENHA'
        ParamType = ptUnknown
      end>
    object qryloginREGISTRO: TIntegerField
      FieldName = 'REGISTRO'
      Origin = 'USUARIOS.REGISTRO'
    end
    object qryloginNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'USUARIOS.NOME'
      Size = 50
    end
    object qryloginUSUARIO: TIBStringField
      FieldName = 'USUARIO'
      Origin = 'USUARIOS.USUARIO'
      Required = True
    end
    object qryloginSENHA: TIBStringField
      FieldName = 'SENHA'
      Origin = 'USUARIOS.SENHA'
    end
    object qryloginNIVEL: TSmallintField
      FieldName = 'NIVEL'
      Origin = 'USUARIOS.NIVEL'
    end
    object qryloginSISTEMA: TIBStringField
      FieldName = 'SISTEMA'
      Origin = 'USUARIOS.SISTEMA'
      Size = 1
    end
    object qryloginSENHA2: TIBStringField
      FieldName = 'SENHA2'
      Origin = 'USUARIOS.SENHA2'
    end
    object qryloginIDFUNCAO: TIntegerField
      FieldName = 'IDFUNCAO'
      Origin = 'USUARIOS.IDFUNCAO'
      Required = True
    end
    object qryloginIDRESTRICAO: TIntegerField
      FieldName = 'IDRESTRICAO'
      Origin = 'USUARIOS.IDRESTRICAO'
      Required = True
    end
  end
  object qrydadosserver: TIBQuery
    Database = IBDataBaseSIGAS
    Transaction = IBTransactionSIGAS
    ForcedRefresh = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM SP_NUCLEO_0')
    Left = 344
    Top = 96
    object qrydadosserverDATASERVER: TDateField
      DisplayLabel = 'Data Atual no Servidor'
      FieldName = 'DATASERVER'
      Origin = 'SP_NUCLEO_0.DATASERVER'
      DisplayFormat = 'dd/mm/yyyy'
      EditMask = '!99/99/9999;1; '
    end
    object qrydadosserverHORASERVER: TTimeField
      DisplayLabel = 'Hora Atual no Servidor'
      FieldName = 'HORASERVER'
      Origin = 'SP_NUCLEO_0.HORASERVER'
      DisplayFormat = 'HH:mm:ss'
      EditMask = '!99:99:99;1; '
    end
    object qrydadosserverLOGSERVIDOR: TDateTimeField
      DisplayLabel = 'Log Atual no Servidor'
      FieldName = 'LOGSERVIDOR'
      Origin = 'SP_NUCLEO_0.LOGSERVIDOR'
    end
    object qrydadosserverCONEXAO: TIntegerField
      DisplayLabel = 'Conex'#227'o do Usu'#225'rio Atual no Servidor'
      FieldName = 'CONEXAO'
      Origin = 'SP_NUCLEO_0.CONEXAO'
    end
    object qrydadosserverTRANSACAO: TIntegerField
      DisplayLabel = 'Transa'#231#227'o do Usu'#225'rio Atual no Servidor'
      FieldName = 'TRANSACAO'
      Origin = 'SP_NUCLEO_0.TRANSACAO'
    end
    object qrydadosserverUSUARIO: TIBStringField
      DisplayLabel = 'Usu'#225'rio Atual Logado no Servidor'
      FieldName = 'USUARIO'
      Origin = 'SP_NUCLEO_0.USUARIO'
      Size = 31
    end
    object qrydadosserverIDPROCSERVER: TIntegerField
      FieldName = 'IDPROCSERVER'
      Origin = 'SP_NUCLEO_0.IDPROCSERVER'
    end
    object qrydadosserverIDPROCLOCAL: TIntegerField
      FieldName = 'IDPROCLOCAL'
      Origin = 'SP_NUCLEO_0.IDPROCLOCAL'
    end
    object qrydadosserverLOGCONEXAO: TDateTimeField
      FieldName = 'LOGCONEXAO'
      Origin = 'SP_NUCLEO_0.LOGCONEXAO'
    end
    object qrydadosserverPROCESSOLOCAL: TIBStringField
      FieldName = 'PROCESSOLOCAL'
      Origin = 'SP_NUCLEO_0.PROCESSOLOCAL'
      Size = 255
    end
  end
  object JvCaesarCipher: TJvCaesarCipher
    IsStored = False
    Left = 592
    Top = 32
  end
  object JvSerialMaker: TJvSerialMaker
    Base = 0
    Left = 592
    Top = 88
  end
  object IBQVersaoBD: TIBQuery
    Database = IBDataBaseSIGAS
    Transaction = IBTransactionSIGAS
    ForcedRefresh = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT VERSAO FROM VALIDABD')
    Left = 344
    Top = 152
    object IBQVersaoBDVERSAO: TIBStringField
      FieldName = 'VERSAO'
      Origin = 'VALIDABD.VERSAO'
      Size = 12
    end
  end
  object IBQLogAcesso: TIBQuery
    Database = IBDataBaseSIGAS
    Transaction = IBTransactionSIGAS
    ForcedRefresh = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'insert into logacessos (registro,data,hora,usuario,tempologado,a' +
        'cao)'
      'values (0,current_date,current_time,:usuario,:tempo,:acao)')
    Left = 344
    Top = 208
    ParamData = <
      item
        DataType = ftString
        Name = 'usuario'
        ParamType = ptInput
        Value = #39'USUARIO'#39
      end
      item
        DataType = ftInteger
        Name = 'tempo'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'acao'
        ParamType = ptInput
        Value = #39'N'#39
      end>
  end
  object ControlCopias1: TControlCopias
    Ativo = True
    Copias = 1
    Finaliza = True
    Exibe = True
    OnMaxInstancesReached = ControlCopias1MaxInstancesReached
    Left = 48
    Top = 296
  end
end
